100 GOTO104
102 A=PEEK(AR):X=PEEK(XR):Y=PEEK(YR):RETURN
104 DEF FN R(X)=INT(RND(0)*X+1)
106 PRINTCHR$(14);"[144][147]";:TYPE=64:RS=780:IFPEEK(179)=11THENTYPE=128:(null)&:(null)15:RS=6
108 AR=RS:XR=RS+1:YR=RS+2:SB=34:IF(TYPE=128) AND (PEEK(215)<>0)THENSB=74:PRINT"";
110 POKE53280,5:POKE53281,5
112 PRINT"     [195]3[208][207]   [195]OMMODORE [195]OMPUTER [195]ODE     [146]";:PRINT"         [208]RACTICE [207]SCILLATOR V 1.0      [146]"
114 PRINT:PRINT"   [195]OPYRIGHT (C) 1990 [203]ENNETH [197]. [203]AHL":PRINT"73027,454. [198]OR AMATEUR OR HOBBIEST USE":PRINT"ONLY. [212]HIS PROGRAM MAY NOT BE SOLD OR"
116 PRINT"COMMERCIALLY REPRODUCED WITHOUT THE":PRINT"PERMISSION OF THE AUTHOR."
118 PRINT"   [213]PLOADED TO [195]OMPUSERVE [193]UGUST 1990.":PRINT"[198]EEDBACK ON THIS PROGRAM AND POSSIBLE":PRINT"IMPROVEMENTS OR SUGGESTIONS W'ULD BE":PRINT"GREATLY APPRECIATED."
120 PRINT"   [212]HIS IS A HYBRID PROGRAM WHICH WILL":PRINT"RUN WITHOUT MODIFICATION ON A C64 OR A":PRINT"C128. 80 COLUMN MODE ON THE C128 IS":PRINT"MARGINALLY FASTER."
122 PRINT"   [211]OME LINES USE BASIC 7.0 COMMANDS":PRINT"AND WILL NOT LIST CORRECTLY IN C64 MODE."
124 IFSB=74THEN(null)%
126 VC=54296:VL=5:POKEVC,VL:FR=6000:TT=15:DIMA$(47),B$(47),C$(200):FORK=1TO47:READB$(K),A$(K):NEXT:DR=0
128 AD=5120:IF(TYPE=64)THENAD=828
130 FORK=AD TO AD+160:READA:POKEK,A:NEXT
132 IF(TYPE=64)THENPOKEAD+60,(AD+142)/256:POKEAD+59,(AD+142)-256*INT((AD+142)/256)
134 READ NM:DIM RM$(NM):FORK=1TONM:READ RM$(K):NEXT
136 IFSB=74THEN(null)&
138 PRINT:PRINT"[211]ELECT OPTION. [208]RESS":PRINT" A [146] PRACTICE RECEIVING.":PRINT" B [146] PRACTICE SENDING.":PRINT" C [146] ADJUST TONE AND VOLUME."
140 GETA$:IFA$=""THEN140
142 IFA$="A"THEN GOSUB152:PRINT"[147]":GOTO138
144 IFA$="B"THEN GOSUB190:PRINT"[147]":GOTO138
146 IFA$="C"THEN GOSUB304:PRINT"[147]":GOTO138
148 GOTO140
150 REM *** PRACTICE RECEIVING ***
152 PRINT"[193]PPROXATE RATE (WORDS PER MINUTE).":PRINT"[208]RESS:":PRINT"A FOR 5 WPM":PRINT"B FOR 7 WPM":PRINT"C FOR 10 WPM":PRINT"D FOR 12 WPM"
154 TT=0:GETA$:IFA$=""THEN154
156 IFA$="A"THENTT=50
158 IFA$="B"THENTT=30
160 IFA$="C"THENTT=20
162 IFA$="D"THENTT=15
164 IFTT=0THEN154
166 PRINT"[211]ELECT:":PRINT" A [146] INPUT YOUR OWN.":PRINT" B [146] SELECT RANDOM MESSAGE FROM LIST.":PRINT" C [146] GENERATE RANDOM NONSENSE MESSAGE.":PRINT" D [146] RETURN TO MAIN MENU."
168 PRINT:PRINT"([207]PTION C IS BEST PRACTICE MODE.)
170 [161]A$:[139]A$[178]""[167]170
172 [139]A$[178]"A"[167][153]"(null)O UPPERCASE OR GRAPHICS!":[133]"(null)ESSAGE ";A$:[137]182
174 [139]A$[178]"B"[167]A$[178]RM$([165]R(NM)):[137]182
176 [139]A$[178]"C"[167][141]286:[137]182
178 [139]A$[178]"D"[167][142]
180 [137]170
182 [141]242:[153]:[133]"(null)ECEIVED";A1$
184 [139]A1$[178]A$[167][153]"(null)UT";:[129]K[178]1[164]500:[130]:[153]"STAND";:[129]K[178]1[164]500:[130]:[153]"ING.":[129]K[178]1[164]500:[130]:[137]166
186 [139]A1$[179][177]A$[167][153]"(null)OU NEED MORE PRACTICE.":[153]"(null)ENT: ";[163]10);A$:[153]"(null)ECEIVED:";[163]10);A1$:[137]166
188 [143] *** PRACTICE SENDING ***
190 [141]264
192 [153]"LOADPEEKEGIN TRANSMITTING. (null)SE ANY KEY.":[153]"(null)RANSMIT UP TO 200 CHARACTERS.":[153]"VALND OF MESSAGE (.-.-.) WILL START":[153]"STR$ECODING PROCESS."
194 FF[178]1:Z[178]1:[129]K[178]1[164]200:C$(K)[178]"":[130]:T1[178]TI
196 [139]([185](0)[177]SB)[167][153][199](13);
198 [151]YR,XT[173]4:[158]AD:[141]102
200 [139](A[179][177]1)[167]204
202 [139]FF[178]0[167][153]" ";:FF[178]1:Z[178]Z[170]1
204 [139]A[179][177]0[167]212
206 [139]X[177]XT[167][153]"-";:C$(Z)[178]C$(Z)[170]"-"
208 [139]X[179]XT[167][153]".";:C$(Z)[178]C$(Z)[170]"."
210 FF[178]0
212 [139]C$(Z)[178]".-.-."[167]216
214 [137]196
216 T2[178]TI:T3[178](T2[171]T1)[173]3600
218 [139]SB[178]74[167][254]%
220 M$[178]"":[153]:[153]"STR$ECODING:":[153]:[129]K[178]1[164]Z[171]1:[153]C$(K),;
222 [129]J[178]1[164]47:[139]C$(K)[178]A$(J)[167][153]B$(J):M$[178]M$[170]B$(J):J[178]100
224 [130]J:[139]J[178]48[167][153]"(UNKNOWN)":M$[178]M$[170]"?"
226 [130]K:[153]:[153]"MESSAGE IS:":[153]M$
228 WR[178][195](M$)[173](T3[172]5):[153]"ATNPPROXIMATE SENDING RATE =";
230 [153]([181](WR[172]10)[173]10);" WORDS.":[153]"PER MINUTE."
232 [139]SB[178]74[167][254]&
234 [153]"(null)RESS M FOR MENU, ANY KEY TO CONTINUE:":[129]K[178]1[164]10:[161]A$:[130]
236 [161]A$:[139]A$[178]""[167]236
238 [139]A$[178]"M"[167][142]
240 [137]192
242 [143]  *** SUBROUTINE TO SEND 'A$' ***
244 [129]K[178]1[164][195](A$):C$[178][202](A$,K,1):N[178][198](C$)
246 [139]C$[178]" "[167][153]:[151]YR,3[172]TT:[158]AD[170]120:[137]260
248 N[178]N[171]43
250 [153]A$(N)
252 [129]J[178]1[164][195](A$(N)):D$[178][202](A$(N),J,1)
254 DR[178]TT:[139]D$[178]"-"[167]DR[178]3[172]TT
256 [151]XR,FR[173]255:[151]YR,DR:[158]AD[170]94
258 [151]YR,TT:[158]AD[170]120:[130]J
260 [151]YR,5[172]TT:[158]AD[170]120:[130]K
262 [142]
264 [143] *** SET TRANSMIT SPEED ***
266 [153]"(null)SE ANY KEY AS SENDING KEY.":[153]"(null)END FIVE 'DOT' (.) FOR SPEED TEST:":[129]K[178]1[164]10:[161]A$:[130]:[129]K[178]1[164]5
268 [151]XR,0:[151]YR,20:[158]AD:[141]102
270 [139] A[178]1 [167]268
272 X1[178]X1[170]X:[153]".";:[130]:[153]
274 [153]"(null)END FIVE 'DASH' (-) FOR SPEED TEST:":[129]K[178]1[164]5
276 [151]XR,0:[151]YR,20:[158]AD:[141]102
278 [139] A[178]1 [167]276
280 X2[178]X2[170]X:[153]"-";:[130]:[153]
282 X1[178]X1[173]5:X2[178]X2[173]5:[139]X2[179]1.5[172]X1[167][153]"(null)OU MUST EMPHASIZE THE DASH MORE.":[153]"(null)RY AGAIN.":[137]264
284 XT[178]X1[170](X2[171]X1)[173]2:[142]
286 [143] *** GENERATE RANDOM NONSENSE MESSAGE ***
288 [139]SB[178]74[167][254]%
290 Z1[178]32:A$[178]"":XX[178]10[170][165] R(20):[129]K[178]1[164]XX
292 ZZ[178][165] R(35)[170]64:[139]ZZ[177]90 [167] ZZ[178]32
294 [139]Z1[178]32 [175] ZZ[178]32[167]292
296 Z1[178]ZZ:A$[178]A$[170][199](ZZ)
298 [130]
300 [139]SB[178]74[167][254]&
302 [142]
304 [143] *** SET TONE AND VOLUME ***
306 TT[178]15:[153]"LOAD":[153]"LENURSOR UP = HIGHER TONE.":[153]"LENURSOR DOWN = LOWER TONE.":[153]"LENURSOR RIGHT = HIGHER VOLUME.":[153]"LENURSOR LEFT = LOWER VOLUME."
308 [153]"(null)ETURN = RETURN TO MAIN MENU."
310 [129]K[178]1[164]10:[161]A$:[130]
312 A$[178]"CQ":[141]242
314 [161]A$
316 [139]A$[178]"ON"[167]FR[178]FR[170]FR[173]10:[139]FR[177]32000[167]FR[178]32000
318 [139]A$[178]""[167]FR[178]FR[171]FR[173]10:[139]FR[179]500[167]FR[178]500
320 [139]A$[178]""[167]VL[178]VL[170]1:[139]VL[177]15[167]VL[178]15
322 [139]A$[178]"CMD"[167]VL[178]VL[171]1:[139]VL[179]1[167]VL[178]1
324 [151]VC,VL
326 [139]A$[178][199](13)[167][142]
328 [137]312
330 [131]",",--..--,"-",-...-,".",.-.-.-,"/",-..-.
332 [131] 0,-----,1,.----,2,..---,3,...--,4,....-,5,.....,6,-....,7,--...,8,---..,9,----.
334 [131] ":",---...,";",-.-.-.,"<",,"=",,">",,"?",..--..,"@",
336 [131] A,.-,B,-...,C,-.-.,D,-..,E,.,F,..-.,G,--.,H,....,I,..,J,.---,K,-.-,L,.-..,M,--,N,-.,O,---,P,.--.,Q,--.-,R,.-.
338 [131] S,...,T,-,U,..-,V,...-,W,.--,X,-..-,Y,-.--,Z,--..
340 [131] 169,  0,141,  0,255,134,250,132,251, 32,159,255,232,208, 14,234
342 [131] 234,198,250,208,244,198,251,240, 66,208,238,234,234,169,  0,141
344 [131]   5,212,169,255,141,  6,212,169, 32,141,  1,212,141,  0,212,169
346 [131]  33,141,  4,212,169,  0,133,250,133,251, 32,142, 20,232,240,  8
348 [131] 230,250,208,246,230,251,208,242,169,  0,141,  6,212,169, 32,141
350 [131]   4,212,169,  0,133,208,166,250,164,251, 96,169,  1, 96,169,  0
352 [131] 141,  0,255,169,  0,141,  5,212,169,255,141,  6,212,142,  1,212
354 [131] 14,0,212,169,33,141,4,212,162,0,234,234,234,202,208,250
356 [131] 136,208,245,169,  0,141,  6,212,169, 32,141,  4,212, 96, 32,159
358 [131] 255,224,255,208, 11,234,234,234,234,234,202,208,248, 32,159,255
360 [131] 96
362 [143] *** RANDOM MESSAGES - THESE   ARE EXAMPLES ONLY. THE USER MAY ADD MORE ***
364 [131] 6 : [143] NUMBER OF MESSAGES
366 [131] "EVERY GOOD BOY DESERVES FAVOR"
368 [131] "THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG"
370 [131] "IGNORANT PEOPLE ARE AFRAID OF EVERYTHING"
372 [131] "SOS SOS SOS TITANIC HAS STRUCK ICEBERG SOS SOS SOS"
374 [131] "CQ DX CQ DX DE WC3PO 10D K"
376 [131] "THEY ARE OUTSIDE THE BUNKER NOW. DIEN BIEN PHU 23"
60000 [143] "RIGHT$ WOULD LIKE TO THANK ATNLLISON
60010 REM "[214]ON DER [204]AND OF [200]EIMPLATZ,
60020 [143] "(null)EBRASKA FOR HER ASSISTANCE
60030 REM "WITH THIS PROGRAM.
60040 [143] DOG DAY AFTERNOON MARCH 25 '90
60050 [143] KENNY DOG THE MAD PROGRAMMER
65535 [143] (C) 1990 KEN KAHL
65536 REM NO MATTER WHAT